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SBUG meetings are held the 3rd Tuesday of each month in the 
north-east corner of Dysan's building at: 

5401 Patrick Henry Drive 
Time-7:15 to 10:30 P.M. Santa Clara, Ca. 

September 18, October 16, November 20. 

Topic of the month: Not yet decided. 

The first Wednesday of the month features a SIG meeting for 
Model 100 owners — same time, same venue 

************************************** ****** **************** 

MEMBERSHIP 

If you wish to become a member of SBUG and start receiving 
our newsletter "Dynamic Memories" then send $18.00 
(check/moneyorder ) to the following address: 

South Bay TRS-80 Users Group 
P.O.Box 60116 
Sunnyvale, Ca. 94088 

or come to one of our meetings. If you also wish to 
communicate with our bulletin board system (SBUG-80) then 
include an additional $25.00 for an account on the system. 
You must be a member of SBUG to have an account on SBUG-80. 
Please include your address and phone number. Thanks... 



COPYRIGHT (C) 1984 SOUTH BAY TRS-80 USERS GROUP (SBUG) 
WORLD RIGHTS RESERVED. NO PART OF THIS PUBLICATION MAY BE 
REPRODUCED WITHOUT GIVING CREDIT TO THE AUTHOR AND SBUG. 
REPRODUCTIONS MAY ONLY BE PERFORMED BY NONPROFIT 
ORGANIZATIONS. PROFIT MAKING ORGANIZATIONS MUST HAVE PRIOR 
WRITTEN PERMISSION OF THE EDITOR. 
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If the need arises, feel free to give any 



Cover Artist: 

Chuck Ward 
Public Relations: 

Ron Carpenter 
Host Computer: 

SBUG-80 



(408) 374-5258 

(415) 726-3487 

(408) 946-2286 

one of us a call. 



THE EDITOR'S BYTES & BITES 

A suggestion was made at the last meeting that we 
devide the meeting into two parts — the first part to be 
devoted to new members and beginners. Note the difference. 
A new member could conceivably be a computer genius, expert 
in six languages etcetera, and would only need information 
as to the services SBUG supplies. This information should 
be readily available in an organised fashion. 

The beginners' aspect should include a general 
orientation on languages, on the various Tandy machines and 
Tandy clones, and on microcomputers in general, stressing 
what they can do for the individual as opposed to the 
corporate user. 

One of the club's weaknesses has been, is, that new 
members practically have to force their way in. They are 
not given the courtesy and consideration they deserve. Too 
many times, they are treated like a new student at an 
exclusive school. "You may be all right, but before I'll 
have anything to do with you, I'll have to know your family 
background." 
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SOUTH BAY TRS-80 USERS GROUP 

The following is by courtesy of Ian Webb 

CABRILLO COMPUTER SOCIETY MODEL 1,111,4 SIG TECHNICAL NOTES 

Edited by Dave Owen 



SETDATE by Jack Decker 

as published in Northern Bytes 

This program is copyrighted, but may be reprinted for 
non-commercial purposes or placed in your computer club s 
software library. Just don't sell it or include it in a 
program package you're selling, and I won't object. As far 
as I am aware, it will work properly under any Model I or 
III disk operating system. 

Computer users are basically lazy — that's why we use 
computers! This program eliminates that most tedious of 
all tasks on the computer — sett: ng the date! Yes, you'd be 
amazed the lengths that computer users will go through to 
avoid having to set the date at power-up (including 
patching the DOS so it won't ask the dreaded question: 
DATE?) 

Now you can have your date without typing it in, and 
without buying one of those battery-backup clock modules 
(which, by the way, is a hardware project I'd like to 
publish in these pages, if anyone would care to write it up 
and send it in!) This program always "remembers" the date 
when you last powered-up your system. If you power up a 
second time on the same day, you need only hit <ENTER> to 
tell SETDATE that the date hasn't changed. If you've been 
away from your computer for a day or two (who among us has 
the will power to stay away longer?), simply hit the 
up-arrow or right-arrow to advance the date. This is made 
easy by the fact that the day of the week is 
displayed--most people can remember that today is Tuesday, 
but it's a real mental effort to remember whether today is 
the seventh or eighth of the month. By printing the day of 
the week along with the date, the chances of mental 
overload are reduced significantly. 

Other keys do other things, but they are explained on the 
screen, so you don't have to remember them. Further 
documentation on the program is found in the remark 
statements of the source code, so I won't explain further 
here, except to say that the program is self-modifying, and 
rewrites the first sector of itself onto the disk before 
exiting (this is how the program "knows" what the date was 
the last time it was executed). Note that the program 
violates what is thought to be a prime rule of 
programming--that is, "Always close any open files before 
you exit a program." Normally that's a good rule to 
follow, but do so in this program would truncate the file 
and destroy the program, so don't try it here'. 
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Normally you'd 
each time the 
source code f 
particulars o 
problem remai 
date before it 
procedure for 
systems : 

DOSPLUS 3. 
the date promp 
well ) . A coram 
suffice. 

LDOS 5.1. 
the date prom 
well). A co 
would suffice . 

MULTIDOS - 
specifiers pr 
command (for e 

NEWDOS/80 
AY and AZ to 
AY=N AZ-N"). 

TRSDOS 1. 
command here, 
prompt: PATCH 



SEPTEMBER 1984 

use the DOS 'AUTO' command to run SETDATE 
disk is re-booted <see the comments in the 
or more information, and your DOS manual for 
n the AUTO command in your DOS), but the 
ns: How do you get the DOS to NOT ask the 
gets around to running SETDATE? Here's the 
most of the popular TRS-80 disk operating 

5 - Use the DOS 'SYSTEM* command to disable 
t (you may wish to disable the time prompt as 
and in the form ' SYSTEM( DATE-N ,TIME=N ) would 

X - Use the DOS 'SYSTEM* command to disable 
pt (you may wish to disable the time prompt as 
mmand in the form ' SYSTEM( DATE-OFF , TIME-OFF) ' 

Use the exclamation mark and the pound sign 
ior to the SETDATE filename of the- 'AUTO' 
xample, ("AUTO !#SETDATE"). 

- Use the DOS 'SYSTEM' command to set options 
"N" (a typical command line would be "SYSTEM 

3 - Sorry, nothing as simple as a SYSTEM 
Instead modify the system to skip the 
*0 (ADD-4EB1,FIND-06,CHG*17). 



A closing comment: This program will only be accurate 
during the 20th and 21st centuries. Please don't write for 
patches in February 2100 since I may not be available. 
Before that contact Northern Bytes, c/o Jack Decker, 1804 
West 18th Street, Lot No. 155, Sault Ste. Marie, MI 49783. 
I'd like to know how this program serves you--any 
complaints? 



00100 

00110 

00120 

00130 

00140 

00150 

comput 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 



;SETDATE/ASM - Copyright 1983 by Jack Decker 

;and donated to computer club members use—do not 

;use this program commercially! 

;This program eliminates the need to type in the date 
;manually each time you power-up your 

er — assum- 
ing your DOS can be forced to bypass the 'DATE' 
prompt when it is booted up). 

This program MUST be assembled using the filename 
"SETDATE/CMD" . Normally, it is used by placing the 
filename as a DOS 'AUTO' command. You may 'AUTO' 
a second program along with SETDATE by placing the 
filename of the 2nd program in the same 'AUTO' line, 
immediately following the SETDATE command; e.g: 

SETDATE PR0GRAM2 

would first execute SETDATE, then PR0GRAM2. 
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00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 



If a valid date is already stored in memory 
(as might happen if the DOS is rebooted without 
first turning off power to the system), SETDATE will 
simply clear the screen and exit. However, you can 
force SETDATE to run by placing a space and an ex- 
clamation point immediately following the filename: 



SETDATE ! 



SETDATE ! PR0GRAM2 



When SETDATE executes, it will display the date last 
entered the last time SETDATE was executed. You may 
advance or backspace the date using the arrow keys. 
When the correct date is displayed, simply press the 
<ENTER> key, which will store the date in memory and 
within the SETDATE program itself, for use the next 
time SETDATE is executed. 

Questions or comments MUST be accompanied by a self- 
addressed stamped envelope if you wish a reply. 



This program is by: 



Jack Decker 

1804 West 18th Street, Lot 155 

SAULT STE. MARIE, MI 49783 



ORG 

; St ring and 
TABLE DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFW 
DEFM 
DEFB 



MARKER 
DATSTR 



CNTURY 
SUN 



6000H 

date storage 
SUN 
M0N 
TUE 
WED 
THU 
FRI 
SAT 
JAN 
FEB 
MAR 
APR 
MAY 
JUN 
JUL 
AUG 
SEP 
OCT 
NOV 
DEC 
OFEH 
84D 
ID 
07D 
OOD 
1900D 
'Sunda' 
'y'+80H 



;Must end with 00H 

area used by program... 

Table of string pointers 
point to strings 
containing days of 
the week 



Table of string pointers 
point to strings 
containing months of 
the year 



Start date storage area 
Year storage 
Day storage 
Month storage 
Day of week storage 
Century storage 
Strings containing days 
of week 
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00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 

omo 

01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
keys : 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 



MON 
TUE 
WED 
THU 
FRI 
SAT 
JAN 
FEB 
MAR 
APR 
MAY 
JUN 
JUL 
AUG 
SEP 
OCT 
NOV 
DEC 
MSG 



DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFM 
DEFB 
DEFB 
DEFB 
DEFB 
DEFM 

DEFB 
DEFM 
DEFB 
DEFM 
DEFM 
DEFB 
DEFM 
DEFM 
DEFB 



Monda' 

y'+80H 

Tuesda' 

y'+80H 

Wednesda ' 

y'+80H 

Thursda' 

y'+80H 

Frida' 

y'+80H 

Satur da ' 

y'+80H 

Januar ' 

y'+80H 

Febr uar ' 

y '+80H 

Marc' 

h'+80H 

Apri' 

l'+80H 

Ma' 

y '+80H 

Jun' 

e'+80H 

Jul' 

y*+80H 

Augus ' 

t'+80H 

Septembe ' 

r'+80H 

Octobe' 

r'+80H 

No vembe ' 

r'+80H 

Decembe ' 

r'+80H 
1CH 
1FH 
1AH 
1AH 

'Please set 
ODH 
1AH 
1AH 
1AH 

'Please press 



months of the year 



Homes cursor 
Clears screen 
Advance 1 line 

correct date : ' 
Message terminator 
Line feed 



one of the following 



ODH ;Message terminator 

'<ENTER> if date is correct' 

ODH ;Message terminator 

'<BREAK> or <CLEAR> to exit without ' 

'setting date' 

ODH ;Message terminator 

'<UP-ARR0W> or <RIGHT-ARROW> to * 

'advance date' 

ODH '.Message terminator 
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01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 



ENDYR 



DEFM 
DEFM 
DEFB 
DEFM 
DEFM 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 



'<DOWN-ARROW> or <LEFT-ARR0W> to 
1 backup date 

ODH ;Message terminator 

'<SHIFT> plus arrow key to change 
'date at high speed' 



1CH 

1AH 

1AH 

1AH 

1AH+80H 

1EH 

1DH+80H 



Start of actual program 



START 



USEPGM 



RESTRT 



LD 

CP 

PUSH 

CALL 

POP 

PUSH 

JR 

CALL 

LD 

CP 

JR 

INC 

LD 

DEC 

CP 

JR 

INC 

LD 

DEC 

CP 

JP 

LD 

CALL 

LD 

LD 

CALL 

CALL 

DEC 

LD 

ADD 

CALL 

CALL 

DEC 

LD 

LD 

LD 

PUSH 

CALL 

POP 

CALL 

DEC 



A,(HL) 

' ! ' 

AF 

Z.1D78H 

AF 

HL 

Z, USEPGM 

GETBFR 

A,(DE) 

100D 

NC, USEPGM 

DE 

A,(DE) 

A 

31D 

NC, USEPGM 

DE 

A,(DE) 

A 

12D 

C.EXIT2 

HL.MSG 

DSPMSG 

BC.DATSTR+3 

A,(BC) 

PRTSTR 

PRTCOM 

BC 

A,(BC) 

A.6D 

PRTSTR 

PRTSPC 

BC 

A,(BC) 

L,A 

H,0 

BC 

PRTNUM 

BC 

PRTCOM 

BC 



;Homes cursor 
; Line feed 
;Line feed 



;Clears to line end 
;Moves to new line 



Get argument (!) if any 
Is it exclamation point? 
Save Z-flag 
Bump HL past "!" 
Restore Z-flag 
Save input buffer pointr 
Skip date test if "!" 
Get memory date pointer 
Get year from memory 
Is it in 0-99 range? 
Go if invalid year 
Point to day in memory 
Get day from memory 
Adjust valid to 0-30 
Is day 1-31 in memory? 
Go if invalid month 
Point to month in memory 
Get month from memory 
Adjust valid 0-11 
Is month 1-12 in mem? 
Go if memory date valid 
Point to message 
Display message 
Point to day of wk byte 
Get day of week (0-6) 
Print day of week string 
Print comma and space 
Point to month byte 
Get month (1-12) 
Offset for string tablee 
Print month string 
Print space character 
Point to day byte 
Get day (1-31) 
Put day in L 
HL - day 

Save date storage ptr 
Print day 

Restore date storage ptr 
Print comma and space 
Point to year byte 
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01960 




LD 


A,(BC) 


Get year (0-99) 


01970 




LD 


C,A 


Put year in C register 


01980 




LD 


B,0 


BC = last 2 digits year 


01990 




LD 


HL.(CNTURY) 


Get century offset 


02000 




ADD 


HL.BC 


HL - Year (all 4 digits) 


02010 




CALL 


PRTNUM 


Print year 


02020 




LD 


HL.ENDYR 


Point to Ctrl chr string 


02030 




CALL 


DSPMSG 


Output it to video 


02040 


GETKEY 


LD 


A,(3840H) 


Get BREAK/CLEAR row 


02050 




AND 


6 


Mask out other keys 


02060 




JR 


NZ.EXIT 


Exit if BREAK or CLEAR 


02070 




CALL 


2BH 


Get keystroke, if any 


02080 




JR 


Z, GETKEY 


If no key was pressed 


02090 




CP 


ODH 


Was it the enter key? 


02100 




JR 


NZ.NOTCR 


Go if not ENTER 


02110 




LD 


HL.DATSTR 


Point to program date 


02120 




PUSH 


HL 


Save program date ptr 


02130 




CALL 


GETBFR 


Find memory date storage 


02140 




LD 


BC.3 


Number of bytes to move 


02150 




LDIR 




Move from program to mem 


02160 




LD 


B,0 


LRL =2 56 


02170 




LD 


DE.FCB 


File Control Block ptr 


02180 




LD 


HL.FILBUF 


File I/O buffer ptr 


02190 




CALL 


4424H 


DOS 'OPEN' routine 


02200 


ERREXT 


JP 


NZ.4409H 


If error use ERROR rtn 


02210 




CALL 


4436H 


Read sector to buffer 


02220 




JR 


NZ, ERREXT 


Go if error 


02230 




POP 


HL 


Get program date ptr 


02240 




PUSH 


DE 


Save FCB ptr 


02250 




LD 


DE.MARKER-TABLE+4+FILBUF 


02260 


; 








02270 


; Above 


instruction points 


DE to first location i 


sector 










02280 


;0 of d 


isk file 


that can posi 


jibly contain marker byte 


02290 


j 








02300 


FNDDAT 


LD 


A,(DE) 


Get byte frm disk sector 


02310 




INC 


DE 


Bump ptr to next loc 


02320 




CP 


OFEH 


Marker byte found 


02330 




JR 


NZ, FNDDAT 


Try again, if not 


02340 




LD 


BC.4 


Move 4 bytes frm program 


02350 




LDIR 




storage to disk sector 


02360 




POP 


DE 


Restore FCB pointer 


02370 




CALL 


443FH 


Reset to sector 


02380 




JR 


NZ, ERREXT 


Go if error 


02390 




CALL 


4439H 


Write sector back to dsk 


02400 




JR 


NZ, ERREXT 


Go if error 


02410 


j 








02420 


; Do not 


attempt 


to close file after above procedure! 


02430 

do. 

02440 


;It i 


s not necessary and will truncate file if yo 










02450 


EXIT 


CALL 


1C9H 


Clear screen 


02460 


EXIT2 


POP 


HL 


Restore input buffer ptr 


02470 




LD 


A, ODH 


Check for <CR> character 


02480 




CP 


(HL) 


(end of command strng) 


02490 




JP 


Z.402DH 


DOS READY if no more cmd 
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02500 




JP 


4405H 


02510 


NOTCR 


CP 


58H 


02520 




JR 


Z, ARROW 


02530 




LD 


B,A 


02540 




OR 


10H 


02550 




CP 


18H 


02560 




JR 


CGETKEY 


02570 




CP 


1CH 


02580 




JR 


NC.GETKEY 


02590 




XOR 


B 


02600 




JR 


NZ, UNSHFT 


02610 




LD 


(403CH),A 


02620 


UNSHFT 


LD 


A,B 


02630 


ARROW 


LD 


HL,RESTRT 


02640 




PUSH 


HL 


02650 




LD 


HL.DATSTR+3 


02660 




RRCA 




02670 




JR 


NC.BACK 


02680 


ADVANC 


INC 


(HL) 


02690 




LD 


A, (HL) 


02700 




CP 


7 


02710 




JR 


C, SETDAY 


02720 




LD 


(HL) ,0 


02730 


SETDAY 


DEC 


HL 


02740 




LD 


A,(HL) 


02750 




CALL 


MAXDAY 


02760 




DEC 


HL 


02770 




LD 


A,(HL) 


02780 




CP 


C 


02790 




INC 


(HL) 


02800 




RET 


C 


02810 




LD 


(HL),1 


02820 




INC 


HL 


02830 




LD 


A,(HL) 


02840 




CP 


12D 


02850 




INC 


(HL) 


02860 




RET 


C 


02870 




LD 


(HL),1 


02880 




DEC 


HL 


02890 




DEC 


HL 


02900 




LD 


A,(HL) 


02910 




CP 


99D 


02920 




INC 


(HL) 


02930 




RET 


C 


02940 




LD 


(HL),0 


02950 




LD 


DE.100D 


02960 


CHGCEN 


LD 


HL.(CNTURY) 


02970 




ADD 


HL.DE 


02980 




LD 


(CNTURY) ,HL 


02990 




RET 




03000 


BACK 


DEC 


(HL) 


03010 




JP 


P.SETDA2 


03020 




LD 


(HL),6 


03030 


SETDA2 


DEC 


HL 


03040 




LD 


A,(HL) 


03050 




DEC 


HL 



Execute next DOS command 
Was keystroke up-arrow? 
Go if up-arrow 
Save keystroke in B reg. 
Make shif ted=unshif ted 
Invalid keystroke if 

less than ascii 18H 
Keystroke valid if less 

then ascii 1CH 
Check for shifted char 
If not shifted, char 
arrow row storage 
Restore original char 
RET addr for following 
Save it on stack 
Point to day of week 
Shift bit into carry 
If key was back/down arr 
Increment day of week 
Get day of week 
Is it greater than 6? 
Go if valid day 
Else reset to Sunday 
Point to month storage 
Get month 

Get # days in month 
Point to day storage 
Get current day 
Compare with maximum 
Advance day of month 
Finished if valid day 
Else first of new month 
Point to month storage 
Get current month 
See if it's December 
Advance month count 
Finished if valid month 
Else January of new year 
Bump point back down 

to year storage 
Get current year 
see if last of century 
Advance year count 
Finished if valid year 
Else reset year count 
Add 100 years to century 
Get current century 
Adjust century offset 

and re-save it 
Finished for sure 
Decrement day of week 
Go if valid day 
Else reset to Saturday 
Point to month storage 
Get month 
Point to day storage 
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03060 




DEC 


(HL) 


03070 




RET 


NZ 


03080 




DEC 


A 


03090 




CALL 


MAXDAY 


03100 




LD 


(HL),C 


03110 




INC 


HL 


03120 




DEC 


(HL) 


03130 




RET 


NZ 


03140 




LD 


(HL),12D 


03150 




DEC 


HL 


03160 




DEC 


HL 


03170 




DEC 


(HL) 


03180 




RET 


P 


03190 




LD 


(HL) ,99 


03200 




LD 


DE.-100D 


03210 




JR 


CHGCEN 


03220 


PRTSTR 


RLCA 




03230 




LD 


L,A 


03240 




LD 


H,TABLE<-8 


03250 




LD 


A,(HL) 


03260 




INC 


HL 


03270 




LD 


H,(HL) 


03280 




LD 


L,A 


03290 


DSPMSG 


LD 


A,(HL) 


03300 




OR 


A 


03310 




RET 


Z 


03320 




PUSH 


AF 


03330 




AND 


7FH 


03340 




CALL 


33H 


03350 




POP 


AF 


03360 




RET 


M 


03370 




INC 


HL 


03380 




JR 


DSPMSG 


03390 


PRTNUM 


CALL 


0A9AH 


03400 




CALL 


OFBDH 


03410 




INC 


HL 


03420 




JR 


DSPMSG 


03430 


PRTCOM 


LD 


A,',' 


03440 




CALL 


33H 


03450 


PRTSPC 


LD 


A,' ' 


03460 




CALL 


33H 


03470 




RET 




03480 


GETBFR 


LD 


DE,4044H 


03490 




LD 


A.(54H) 


03500 




DEC 


A 


03510 




RET 


Z 


03520 




LD 


DE,421AH 


03530 




RET 




03540 


MAXDAY 


LD 


C.30D 


03550 




CP 


4 


03560 




RET 


Z 


03570 




CP 


6 


03580 




RET 


Z 


03590 




CP 


9 


03600 




RET 


Z 


03610 




CP 


11D 



Decrement day of month 
Finished if valid day 
Else A=# of previous mth 
Get # days previous mnth 
Day=last day prev. month 
Point to month storage 
Decrement month count 
Finished if valid month 
Else Dec previous year 
Bump point back down 

to year storage 
Decrement year count 
Finished if valid year 
Else last yr prev cntury 
Make previous century 
Adjust century & finish 
A=A*2 (2 byte pointers) 
L=LSB string taSle addr 
H=MSB string table addr 
A=LSB actual string addr 
Point to MSB string addr 
H=MSB actual string addr 
HL=»string location addr 
Get byte to display 
See if zero terminator 
Finished if zero byte 
Save sign flag status 
Mask off bit 7 
Display it on video 
Restore sign flag 
Finished if bit 7 set 
Advance string pointer 
Go print next byte 
Number in HL to ACCUM 
Convert # to string 
Skip leading space char 
Display converted number 
Comma character in A reg 
Display it on video 
Space character in A reg 
Display it on video 
Back to calling routine 
DE=Mode I date storage 
Check which Model TRS-80 
A will be on Model I 
Return if Model I 
DE=Mod III date storage 
Pointing to Mod III date 
C=# days in some months 
Is month April? 
Return if April 
Is month June? 
Return if June 
Is month September? 
Return if September 
Is month November? 
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03620 




RET 


Z 


Return if 


03630 




INC 


C 


C=31 (# d 


03640 




CP 


2 


Is month 


03650 




RET 


NZ 


Return if 


03660 




LD 


C.28D 


C=# days 


03670 




LD 


A.(DATSTR) 


Current y 


03680 




AND 


3 


Year divi 


03690 




RET 


NZ 


If not le 


03700 




INC 


C 


C-29 (# d 


03710 




RET 




Finished 


03720 


FCB 


DEFM 


'SETDATE/CMD' 


File cont 


03730 




DEFB 


3 


with pr 


03740 




DEFS 


20H 


(total 


03750 


FILBUF 


DEFS 


100H 


File I/O 


03760 




END 


START 





November 
lays most mnths) 
February? 

31 day month 
in February 
'ear 

sible by 4? 
;ap year 
lays leap Feb) 

rol block area 
ogram filename 
32 bytes) 
buffer area 



RECOVERING FILES FROM A CLOBBERED DIRECTORY DISK. 

BY F.E. VANSLAGER 

If, as sometimes happens, you've totally destroyed the 
directory of one of your disks, don't despair; there's a 
simple melthod of recovering any file off the disk, IF, and 
it's a big if, you can vaguely recognize what's in your 
lost file, and you have access to NEWD0S80 and 
SUPERUTILITY+ (or HYPERZAP, or any other utility which lets 
you load disk sectors into memory). The method is as 
follows: 



Boot up SUPERUTILITY+ ( 
start examining the sectors o 
your lost file. If you can re 
in your lost file, the string 
let you do a rapid search of 
sectors. Once you find any po 
page backwards until you 
discontinuity that marks the 
it will be on one of the 5*N 
boundaries on a Model III TR 
disk your lost file occupied 
3 on a Model III TRSD0S dis 
beginning byte of the first 
filling out the last sectors 
sectors long. Don't worry abou 
trick is to restore it with ga 



or HYPERZAP or other), and 
f the damaged disk to find 
member anything at all that's 

search capability of SU+ will 
all the remaining undamaged 
rtion of your lost file, just 
find the usual textural 
beginning sector of your file; 
sector boundaries (or the 3*N 
SD0S disk). On the original 
some multiple of 5 sectors (or 
k), starting precisely at the 
sector, and with some garbage 

to make it a multiple of 5 
t the garbage at the end: the 
rbage and all! 



Once you have located the beginning sector of your 
lost file, guess at its length in multiples of 5 sectors. 
(It shouldn't hurt to guess 5, 10, 15, etc. sectors too 
large, just as long as the file is contiguouss. I'll 
discuss non-contiguous files later). Then use SU+'s 
sectors-to-memory facility to load these sectors into high 
memory (e.g. 50001 decimal). Write down the first two bytes 
of the first sector, and then depart SU+ and return to 
NEWD0S80. Then use its DUMP UTILITY to dump the file from 
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high memory onto a good disk as" follows: 

DUMP your lost file , start-addr + 2, end-addr, 65535 
where: 

"your lost file" - the original name of your file, 
start-addr + 2 ■ start of file in memory + 2 (e.g. 
50003), 

end-addr ■ end address in memory (e.g. 50001-1 + 
5»N*256), and the 65535 at the end tells DUMP to save an 
EXACT image of memory, EXCEPT for two entry location bytes 
it will add onto the beginning. Therefore, you'll now have 
exactly 5*N*256 bytes stored in 5*N sectors under the name 
"your lost file". If you now use a utility to change those 
first 2 bytes back to the original bytes which you wrote 
down (but didn't dump) you're done: You exactly restored 
your lost file! 

Most files occupy contiguous sectors, however, 
sometimes a file may have two or more EXTENTS--which may 
reside in any order on the disk. Nevertheless, each of 
those EXTENTS must be a multiple of 5 sectors long. 
Therefore, it's a matter of finding out how manyu multiples 
of 5 sectors there are in each memory location, and then 
DUMPing the entire file as one piece as described earlier. 
If your lost file is in 2 pieces, you may have to try twice 
to get the pieces in the correct order. If it's in 3 
pieces, you may have to try 6 times to get the correct 
order. You should be able to make these tries rapidly — and 
then just test to see which one works. 

EVERYTHING YOU WERE COMPLETELY UNINTERESTED IN LEARNING 

ABOUT EDITING 
By EDITOR 



Some editors are frustrated writers. Most do some 

writing. A few have been brilliant writers (John Campbell 

of science fiction fame). This is an introduction prior to 
informing the uninformed what an editor does. 

Webster's Deluxe Color Edition New World Dictionary 
says as follows: edit: 1. to prepare (an author's works, 
journals, letters, etc.) for publication by SELECTION, 
ARRANGEMENT, and ANNOTATION. (Caps mine) 2. to REVISE and 
MAKE READY (a manuscript) for publication. (Caps mine) 

If you submit anything for publication anywhere, be 
prepared to have your golden words SELECTED, ARRANGED, 
ANNOTATED, REVISED, and MADE READY. 

I earnestly and constantly solicit material for this 
newsletter. My firm opinion is that the better newsletters 
have a minimum of input from me. If your opus magnus does 
not appear in the next edition after you hand it to me, all 
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is not lost. Ask me about it. I might mislay it or forget 
about it temporarily. I have not lost anything yet. 
Remember that this is not a MHold the presses, I gotta 
scoop!! operation. DYNAMIC MEMORIES proceeds with leisurely 
dignity. 



09/01/84 

<Message from IANWEBB at SBUG-80 08/32/84 12:07:45> 

RE: RAMDISK for the Model 4 under LDOS 

Read command : 

I have put 4 programs on the system - see the INDEX! 
These four, RAMDISK/DOC (directions), RAMDISK/CMD, 
FDR/CMD and MAKEO/CMD will allow you to form a RAMDISK 
in the extra 64K bank of the Model 4 when operating in 
the Model 3 mode using »*** LDOS 5.X.X *»«*. Sorry 
'bout that, but I NEVER use NEWD0S80 any more.. .only 
CP/M and LDOS and its derivatives.... No NEWDOS80 
support for the Model 4. 

If you have a Model 4 or 4P , you ought to try these. 
Let me know how they work for you. 

They are from THE SOURCE via a friend. I understand 
they are in the public domain, but - of course - not 
to be sold to others. 

Read command : 

<Message from IANWEBB at SBUG-80 08/32/84 12:09:53> 
RE: P.S. 
Read command : 

Just put M0DEM80 on an LDOS diskette and then transfer 
the programs normally. (The gran count is really K 
per the LDOS directory.) 

Read command : 

<Message from IANWEBB at SBUG-80 08/33/84 12:12:45> 
RE: RICH BLACK'S TEL #??? 
Read command : 

Anyone have a current tel no. for Rich??? 

His roster number answers with a modem and I can t 

seem to get hooked up to it. 

Ian... 867-9533 



Read command : 

<Message from R0GERAND at SBUG-80 09/04/84 12:36:43> 
RE: GLEANED FACTS 
Read command : 

THERE ARE 6,000 SOFTWARE PUBLISHERS, 50,000 PROGRAMS 
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ON THE MARKET, 750 KINDS OF MICROCOMPUTERS, 42,000 
COMPUTER STORES, 256 MICROCOMPUTER MAGAZINES, AND 
1,000 MICROCOMPUTER BOOKS FROM OVER 170 PUBLISHERS. 
THIS APPEARED IN "GENEALOGICAL COMPUTING" AND IT 
WAS COMPLIED BY DR. DAVID STANG OF SILVER SPRINGS, 
MARYLAND. 

QUESTION: HOW MANY OF THE RADIO SHACK STORES AND 
RELATED PUBLICATIONS ARE THERE? 

Read command : 

<Message from PKTERK at SBUG-80 09/04/84 16: 10: 32> 
RE: SALE: Everything must go 
Read ■ omnand : 

The following L tarns are for sale. They shall be sold 
sing., or all at once to the first person(s) who make 
reasonable offers. 

most of this is for the model I 
P.S. I need the room. 

# item 

4 trs80 cassete recorders 

2 electric crayons (color vido controler) 

2 penny whisle modems 

3 data Dubbers 

2 rs232 printer port converters 
1 light pen 

3 numeric key pads w/t keyboard covers 

4 tc-8 high speed cassette systems w/t manuals 
1 trs 80 model one cassete system (computer 

tapes , etc.) 

Message from IANWEBB at SBUG-80 09/09/84 12: 1 8 : 3 7 > 
RE: 4P AND SALE 

Read command : 

I also have heard of the one week sale from a non 

RS source. There are ads now in 80 micro from non 

RS stores selling both the 4 and the 4P for $949 so 

I can believe it. 

There must be a hardware problem to cause the difficulty 

with the Montezuma duplication. Suspect a bad drive??? 

Have you tried it on anyone else's 4P or 4???? I don't 

have the factory drives in my 4P and don't recall if I 

have ever tried a duplication of Montezuma on mine. 

f 4ise_ DS drives exclusively now on both 4 and 4P. 

Last item: 

A friend of mine taught some courses for industry and 

was getting $65/hour for one hour of class time and 

an equal amount for prep time for each hour of class 

time. Was told by one of the industry execs that it 

was too little. He charged them $100 per hour the next 

go around as I recall. 
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